
(define note-on/off-receiver 
  (lambda (status note velocity)
    (inform "Note On/Off:" status note velocity)))

(midi-receiver-register (vector #x80 #x9F) note-on/off-receiver)

(midi-receiver-unregister note-on/off-receiver)

(define pitch-wheel-receiver 
  (lambda (status low high)
    (inform "Pitch Wheel:" status (midi-combine-bytes low high))))

(midi-receiver-register #xE0 pitch-wheel-receiver)

(midi-receiver-unregister pitch-wheel-receiver)
